home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacOberonLite 1.0.1 / Sys Files / MacText.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1993-06-27  |  5.5 KB  |  101 lines  |  [.Ob./.Ob4]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. MODULE MacText;
  4. (* This Module contains all essentiel constants, datatypes and routines from the NEW Inside Macintosh
  5.             Text
  6.     However this implementation is NOT complete. If use miss some items, please use Inside Mac
  7.     and complete this module for your needs.
  8.     See the documentation ( MakeMacApp.Doc ) for more information about the usage of this module.  *)
  9. IMPORT SYSTEM,ME:=MacMemory,IM:=MacImaging;
  10. CONST
  11.         teJustLeft*=0; teJustCenter*=1; teJustRight*=-1;
  12. (* Font Manager *)
  13.         FontInfo*  =  RECORD
  14.             ascent*:   INTEGER;
  15.             descent*:  INTEGER;
  16.             widMax*:   INTEGER;
  17.             leading*:  INTEGER
  18.         END;
  19. (* Text Edit *)
  20.         TERec*=RECORD
  21.             destRect*, viewRect*, selRect*: IM.Rect; lineHeight*, fontAscent*: INTEGER;
  22.             selPoint*: IM.Point; selStart*, selEnd*, active: INTEGER; wordBreak*, clikLoop*: PROCEDURE;
  23.             clickTime: LONGINT; clickLoc: INTEGER; caretTime: LONGINT;
  24.             caretState, just*, teLength*: INTEGER; hText*: ME.Handle;
  25.             recalBack, recalLines, clikStuff, crOnly*, txFont*, txFace*, txMode*, txSize*: INTEGER;
  26.             inPort*: IM.GrafPtr; highHook, caretHook: PROCEDURE;
  27.             nLines*: INTEGER; lineStarts*: ARRAY 16000 OF INTEGER
  28.         END;
  29.         TEPtr*=POINTER- TO TERec;
  30.         TEHandle*=POINTER- TO RECORD p*: TEPtr END;
  31. (* Font Manager *)
  32.     PROCEDURE- InitFonts*    0A8H, 0FEH;
  33.     PROCEDURE- GetFontName*(fontNum: INTEGER; VAR theName: ME.Str255)    0A8H, 0FFH;
  34.     PROCEDURE- GetFNum*(fontName: ME.Str255; VAR theNum: INTEGER)    0A9H, 000H;
  35.     PROCEDURE- GetFontInfo*(VAR info: FontInfo)    0A8H,08BH;
  36.     PROCEDURE- RealFont*(fontNum: INTEGER;size: INTEGER): BOOLEAN    0A9H,002H;
  37.     PROCEDURE- SetFontLock*(lockFlag: BOOLEAN)    0A9H,003H;
  38.     PROCEDURE- SetFScaleDisable*(fscaleDisable: BOOLEAN)    0A8H,034H;
  39.     PROCEDURE- IsOutline*(numer: IM.Point;denom: IM.Point): BOOLEAN    070H,000H,0A8H,054H;
  40.     PROCEDURE- SetOutlinePreferred*(outlinePreferred: BOOLEAN)    070H,071H,0A8H,054H;
  41.     PROCEDURE- GetOutlinePreferred*(): BOOLEAN    070H,009H,0A8H,054H;
  42.     PROCEDURE- OutlineMetrics*(byteCount: INTEGER;textPtr: ME.Ptr;numer: IM.Point;
  43.         denom: IM.Point;VAR yMax: INTEGER;VAR yMin: INTEGER;awArray: ME.Ptr;lsbArray: ME.Ptr;
  44.         boundsArray: ME.Ptr): INTEGER    070H,008H,0A8H,054H;
  45.     PROCEDURE- SetPreserveGlyph*(preserveGlyph: BOOLEAN)    070H,00AH,0A8H,054H;
  46.     PROCEDURE- GetPreserveGlyph*(): BOOLEAN    070H,00BH,0A8H,054H;
  47.     PROCEDURE- FlushFonts*(): INTEGER    070H,00CH,0A8H,054H;
  48. (* Text Edit *)
  49.     PROCEDURE- TEInit*    0A9H, 0CCH;
  50.     PROCEDURE- TENew*(destRect, viewRect: IM.Rect): TEHandle 0A9H, 0D2H;
  51.     PROCEDURE- TEDispose*(hTE: TEHandle)    0A9H, 0CDH;
  52.     PROCEDURE- TEIdle*(hTE: TEHandle)    0A9H, 0DAH;
  53.     PROCEDURE- TEClick*(pt: IM.Point; extend: BOOLEAN; hTE: TEHandle)    0A9H, 0D4H;
  54.     PROCEDURE- TESetSelect*(selStart, selEnd: LONGINT; hTE: TEHandle)    0A9H, 0D1H;
  55.     PROCEDURE- TEActivate*(hTE: TEHandle)    0A9H, 0D8H;
  56.     PROCEDURE- TEDeactivate*(hTE: TEHandle)    0A9H, 0D9H;
  57.     PROCEDURE- TEKey*(key: INTEGER; hTE: TEHandle)    0A9H, 0DCH;
  58.     PROCEDURE- TECut*(hTE: TEHandle)    0A9H, 0D6H;
  59.     PROCEDURE- TECopy*(hTE: TEHandle)    0A9H, 0D5H;
  60.     PROCEDURE- TEPaste*(hTE: TEHandle)    0A9H, 0DBH;
  61.     PROCEDURE- TEDelete*(hTE: TEHandle)    0A9H, 0D7H;
  62.     PROCEDURE- TEInsert*(text: ME.Ptr; length: LONGINT; hTE: TEHandle)    0A9H, 0DEH;
  63.     PROCEDURE- TESetJust*(just: INTEGER; hTE: TEHandle)    0A9H, 0DFH;
  64.     PROCEDURE- TEUpdate*(rUpdate: IM.Rect; hTE: TEHandle)    0A9H, 0D3H;
  65.     PROCEDURE- TEScroll*(dh, dv: INTEGER; hTE: TEHandle)    0A9H, 0DDH;
  66.     PROCEDURE- TESelView*(hTE: TEHandle)    0A8H, 011H;
  67.     PROCEDURE- TEPinScroll*(dh, dv: INTEGER; hTE: TEHandle)    0A8H, 012H;
  68.     PROCEDURE- TEAutoView*(fAuto: BOOLEAN; hTE: TEHandle)    0A8H, 013H;
  69.     PROCEDURE- TESetText*(text: ME.Ptr;length: LONGINT;hTE: TEHandle)    0A9H,0CFH;
  70.     PROCEDURE- TEFeatureFlag*(feature: INTEGER;action: INTEGER;hTE: TEHandle): INTEGER 03FH,03CH,000H,00EH,0A8H,03DH;
  71. (* QuickDraw Text *)
  72.     PROCEDURE- TextFont*(font: INTEGER)    0A8H, 087H;
  73.     PROCEDURE- TextFace*(face: INTEGER)    0A8H, 088H;
  74.     PROCEDURE- TextMode*(fmode: INTEGER)    0A8H, 089H;
  75.     PROCEDURE- TextSize*(size: INTEGER)    0A8H, 08AH;
  76.     PROCEDURE- SpaceExtra*(extra: LONGINT)    0A8H,08EH;
  77.     PROCEDURE- CharExtra*(extra: LONGINT)    0AAH,023H;
  78.     PROCEDURE- DrawChar*(ch: INTEGER)    0A8H, 083H;
  79.     PROCEDURE- DrawString*(s: ME.Str255)    0A8H, 084H;
  80.     PROCEDURE- DrawText*(textBuf: ME.Ptr;firstByte: INTEGER;byteCount: INTEGER)    0A8H,085H;
  81.     PROCEDURE- CharWidth*(ch: INTEGER): INTEGER    0A8H, 08DH;
  82.     PROCEDURE- StringWidth*(s: ME.Str255): INTEGER    0A8H, 08CH;
  83.     PROCEDURE- TextWidth*(textBuf: ME.Ptr;firstByte: INTEGER;byteCount: INTEGER): INTEGER    0A8H,086H;
  84.     PROCEDURE- MeasureText*(count: INTEGER;textAddr: ME.Ptr;charLocs: ME.Ptr)    0A8H,037H;
  85. (* Text Utilities *)
  86.     PROCEDURE- NewString*(theString: ME.Str255): ME.StringHandle    0A9H,006H;
  87.     PROCEDURE- SetString*(theString: ME.StringHandle;strNew: ME.Str255)    0A9H,007H;
  88.     PROCEDURE- GetString*(stringID: INTEGER): ME.StringHandle    0A9H,0BAH;
  89.     PROCEDURE- TimeString*(dateTime: LONGINT;wantSeconds: BOOLEAN;VAR result: ME.Str255;
  90.         intlHandle: ME.Handle)    03FH,03CH,000H,010H,0A9H,0EDH;
  91.     PROCEDURE- DateString*(dateTime: LONGINT;longFlag: BOOLEAN;VAR result: ME.Str255;
  92.         intlHandle: ME.Handle)    03FH,03CH,000H,00EH,0A9H,0EDH;
  93.     PROCEDURE- NumToString*    042H,067H,0A9H,0EEH;
  94.     PROCEDURE- StringToNum*    03FH,03CH,000H,001H,0A9H,0EEH;
  95. (* Script Manager *)
  96.     PROCEDURE- LowerText*(textPtr: LONGINT;len: INTEGER)    030H,01FH,020H,05FH,0A0H,056H;
  97.     PROCEDURE- StripText*(textPtr: LONGINT;len: INTEGER)    030H,01FH,020H,05FH,0A2H,056H;
  98.     PROCEDURE- UpperText*(textPtr: LONGINT;len: INTEGER)    030H,01FH,020H,05FH,0A4H,056H;
  99.     PROCEDURE- StripUpperText*(textPtr: LONGINT;len: INTEGER)    030H,01FH,020H,05FH,0A6H,056H;
  100. END MacText.
  101.